8bitfiles.net/archives/archives.tar/archives/compuserve-file-archive/23 Geos Applications/GEOVIDPG.CVT

GEOS ConVerT | 2019-04-13 | 41KB | 634 lines

GeoVidPg7
PRG formatted GEOS file V1.0
Epson24pinColor
GEOVIDPG7
BLASTER'S CONVeRTER V2.5
$NOTEPRINT
Scrap2VidPage
GeoVidPg7 V1.0
J.Sears & M.Randall
basic
geoBasic
Copyright (c) 1988, Berkeley Softworks
                                        R
.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  )
GeoVidPg7
GeoVidPage.ml
Error I:
9)L/)
vqvrvsvtvu
u&t&s&r&q$q0
fqfrfsftfu`
f|f}f~f
z&y&x&w
P%p8)
q4X>V
 ;  /"
8# )#
A! L*0
*L{!
* X*
 L*0:
On disk:
Insert new disk
swap error
geoBasic and data file
@must be on the same disk
Pin a one drive system
geoBasic Info
photo manager
note pad
hexCalc
Scrap2VidPage
?Extra ignored?RedoT
GeoVidPg7 V1.
(LX*
 P+L.*
|L<TL
OL!SL
OL!SL
basic data  V1.0
basic
GeoVidPg7 V1.0
J.Sears & M.Randall
basic
geoBasic
Copyright (c) 1988, Berkeley Softworks
Disk full, remove some files
Please Select Option:
new document
existing document
to deskTop
File exists, choose another.
Data file is beyond V1.0
WARNING!
This file is write protected.
Please enter new filename:
Please enter an author name
opening file
creating file
Not enough free space on
@disk for desk accessory.
running desk accessory
AQ.BQ
Please reboot your system
@using the same GEOS disk
Pthat was first used to run
`geoBasic
Cannot install geoBasic on
@this disk.  Please refer to
Pinstallation directions in
`the manual.
Cannot install geoBasic on a
@write protected disk.
Error installing geoBasic
geoBasic installed.
XLcvX`
 ;  /"
|LWgLITL]
L ]L,]L
TLJnL
LWgLITL]
L ]L,]L
TLJnL
RH K\
 )# ZT
cHL)#
cHL)#L
U E\ ?
 2UL9
<` PUL$
 PUL*
 K\ .k
 +_X`
 )#L<W
] )#
tL/#L
  H\
W K\
X ?\
; M\ Cf
  tf
L+[,=
L/Z 'Yh
 +_ /#
x K\,
X* z*
Q )#
hhL~W
W H\
    H uo 9]H
 \\ B!
[ 9]H
]  ]L
hhhhh
hLZT )#
 K\H #kh
 8k /#
 )# ``
[ 9]H
Ghhh /#L
6^ #k
h G]L
6^ #k
hhhhh`h
[ 9]H
L ]LZT( \\
H B!
l{VvV~^
l!jMj
SJ^@Uy
U+UIU:UXl
bX]?n5na
 Cf /#LHd
e )#LHd )#
Bf mg
BfLmg 6f
 dh vh
hL9W
[ E\h
` /#H #kh
j )#8
] io 1k oo
 ;  /"
 H\ PU E\
-n` .n
m jnp
D_GeoVidPg7 V1.0
GeoVidP
] )# 1k
 &cH8
 &cL,c
Lxp '
Lxp '
 K\XhhL
!<@DILPTX\`dhly
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t
X` /#
qLTpL
qLFpL(tLntL`tLfsL6tL
pL|t
X` /#
X` 6t
H prh
[ 6t
X` 6t
oLXpL
pLSqL
oLXpL
pLSqL
in$(1)
in$(2)
in$(3)
blank
@StopProc
blank
@StopProc
blank
@StopProc
blank
@StopProc
@DrawLine
@DrawBox
curve
@FollowMous
patrn
@Pattern
erase
@Erase
color
@UseColor
program info
@ProgInfo
Clear
@ClearJunk
Load screen
@LoadScreen
Save Screen
@SaveScreen
Change
@BorderColo
On/Off (Careful!)
@StartClock
Place Clock
@ClockPos
Draw Tools on/off
@Draw
Menu On/Off
@ShowMenu
@Font
Style
@Style
Enter Text
@EnterText
Place Text
@TextButton
Set Colors
@WipeColor
Spiral center
@Spiral
TopLeftDown
@TopLeft
LowRightUp
@RightUp
Screen
`Border Color
`Clock
`Drawing
`Text
`Wipes
by J. E. Sears
Scrap2Vid.DA by
Maurice Randall & J.E.Sears
znBit
BitMapP
Border
BoxErr|
ClearJ`
ClockP
DoMous
DrawBo
DrawLi
EndBox
EndCol
EndLin
EndMou
EndPat
EndSpr
EnteBit
BitMapP
Border
BoxErr|
ClearJ`
ClockP
DoMous
DrawBo
DrawLi
EndBox
EndCol
EndLin
EndMou
EndPat
EndSpr
EnterT
Erase
Follow
GetOld
HideMeh
LoadSc@
Mark1
Mark2
Patter
ProgIn
Replac
RightUt
Rsave
SaveSc6
ScrapU
SetOld
ShowCl~
ShowMeT
Spiral
StColo
StartB
StartCj
StartL
StartM
StartP
StopCl
StopPr2
Style
TextBu"
TextHe,
TopLef
UseCol
WipeCo
menu1
Pinfo
zapit
baneru
blank
color
curve
erase@-
patrn
14,VT$
240:yp
"menu1"
 @Main:
 1650
 @ClearJunk:
 191:
 0,0,39,24:
 0,15,319,199:
 off:
0,0,319,199:
 @StartClock:
 off:
 @StopClock
14,VT$
240:yp
"menu1"
 @Main:
 1650
 @ClearJunk:
 191:
 0,0,39,24:
 0,15,319,199:
 off:
0,0,319,199:
 @StartClock:
 off:
 @StopClock
f$,fs:
(24);:
 @ShowClock,15:

 @ShowClock:
15,c$:c
 xp,yp:
@GetOldPos:
sp$;:
 @SetOldPos
:BUTTON @ClearJunk:RETURN
 @StopClock:
 @ShowClock:
 xp,(yp
9),(xp
40),yp:
 @GetOldPos:xp
(0):yp
 @SetOldPos:
xp,yp:
 @ClockPos:
 @Clp:

 @Clp:
 @Mark1:xp
x1:yp
 off:
 @EndSprite:
 @DrawLine:
 @StopProc:
 @StartLine:
 @StartLine:
 off:
 @Mark1:
 x1,y1:
 @EndLine:
 @EndLine:
 off:
 @Mark2:
 x1,y1
 x2,y2:
 @DrawLine
 @Draw:
"draw":
 @Main
"zapit":
 @Main
 @FollowMous:
 off:
@DoMouse:me
@StartMous:
 @Erase:
 off:
@DoMous:me
 @StartMous:
 @StartMous:
 off:
 @Mark2:
 @EndMous:
 @DoMous,1:
 @DoMous:
 @Mark1:
x1,y1
"zapit":
 @Main
 @FollowMous:
 off:
@DoMouse:me
@StartMous:
 @Erase:
 off:
@DoMous:me
 @StartMous:
 @StartMous:
 off:
 @Mark2:
 @EndMous:
 @DoMous,1:
 @DoMous:
 @Mark1:
x1,y1
x2,y2:x2
x1:y2
 @EndMous:
 off:
 @DoMous:
 @Erase
 @FollowMous
 @StopProc:
 @DoMous:
 @BitMap:
 @Bit:
 @Bit:
 off:
 @Mark1
 bit$,
8),y1:
 @Mark1:x1
(0):y1
 @Mark2:x2
(0):y2
 @DrawBox:
 off:
 @StopProc:
 @BitMap:
 @Bit:
 @Bit:
 off:
 @Mark1
 bit$,
8),y1:
 @Mark1:x1
(0):y1
 @Mark2:x2
(0):y2
 @DrawBox:
 off:
 @StopProc:
 @StartBox:
 @StartBox:
 off:
 @Mark1:
 x1,y1:
 @EndBox:
 @EndBox:
 1660
 off:
 @Mark2:
 x1,y1,x2,y2:
 @DrawBox
 @Pattern:
 @StopProc:
 off:
 @StartPat:
 @StartPat:
 off:
 @Mark1:
 x1,y1:
 @EndPat:
 @EndPat:
 1660
 off:
 @Mark2:
"Pattern number (0-31)",a:
 x1,y1,x2,y2:
 @Pattern
 @UseColor:
 @StopProc:
 @StColor:
 @StColor:
 off:
 @Mark1:x1
8):y1
 @EndColor:
 @EndColor:
 off:
 @Mark2:x2
8):y2
"Foreground Color (0-15)  ",fg:
"Background Color (0-15)  ",bg:
 x1,y1,x2,y2:
 @Font:
8,"",1:
 @Font:
8,"",1:
f$
"Font size",fs:
 @Style:
"Style (14,15,18,19,24-27)",ss:
(ss):

 @EnterText:
"Enter text",a$:
 @TextButton:
 @TextHere:
 @TextHere:
 off:c
 @StartClock:
 @Mark1:
f$,fs:
x1,y1:
 @SaveScreen:
7,"D_geoVidPg2 V1.0":
 @Rsave
 off:
"File name to save",fl$:
 fl$,40960,8000:fl$
"/c":
fl$,35840,1024
 @LoadScreen:
 @Rsave:
 off:
7,"D_geoVidPg2 V1.0":
 fl$:
 fl$,40960:fl$
"/c":
fl$,35840:
 @ShowMenu:
 @HideMenu
0,0,39,1:m
 @HideMenu:
0,0,39,1:
 @ESP:in$(1)
(128):in$(2)
"SOME kind of error":in$(3)
"has occured.":
 @Info:
 @Main
 @BoxError:in$(1)
"The second point must be":in$(2)
"below and to the right of":in$(3)
"the first point.":
 @Main
 @ProgInfo:
"Pinfo",Ga:

 @Info:in$(1)
in$(1)
sp$:in$(2)
in$(2)
 @ProgInfo:
"Pinfo",Ga:

 @Info:in$(1)
in$(1)
sp$:in$(2)
in$(2)
sp$:in$(3)
in$(3)
"info",Ga:
 @BorderColo:
49756:
53280,Bc:
49759:Bc
0
     @WipeColor
"Foreground color (0-15)",fg:
 same as Draw
"Background color (0-15)",bg
"Border color",Bc
 @Spiral:
19:Xr
20:Yl
12:Yr
Xl,Yl,Xr,Yr
0,0,39,1:
0,2,39,24
49756:
 53280,Bc:
49759
 @TopLeft:
0,0,39,1
Xl,Yl,Xr,Yr
0,0,39,1
0,2,39,24
49756:
 53280,Bc:
49759
 @RightUp
39:Xr
39:Yl
24:Yr
Xl,Yl,Xr,Yr
0,0,39,1
0,2,39,24
49756:
 53280,Bc:
49759
 @Rsave
 @Replace:
 SYSINFO 14,VT$
 VT$:
10,R4
12,R5
14,R6
16,R7
18,R8
20,R9
22,R10
24,R11
26,R12
28,R13
30,R14
32,R15
 @ScrapUp
"X position (0-39)",x
"Y position (0-199)",y
"photo.ml",30976
 30976,a,x,y